home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / addupd.zip / ADUPD.PPE (.txt) next >
PCBoard Programming Language Executable  |  1993-04-15  |  4KB  |  150 lines

  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING002
  20.     String   STRING003
  21.     String   STRING004
  22.  
  23. ;------------------------------------------------------------------------------
  24.  
  25.     STRING003 = " 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
  26.     GetUser
  27.     If ((U_Addr(0) == "") || (Left(U_Addr(0), 1) == " ")) Goto LABEL001
  28.     Goto LABEL008
  29.     :LABEL001
  30.     Cls
  31.     PrintLn "User Address Update PPL Copyright 1993 By Ralph LoBianco"
  32.     PrintLn "@X09┌───────────────────────────────────────────────────────────────────┐"
  33.     PrintLn "@X09│                  @X0B**** Address Update Menu ****                   @X09 │"
  34.     PrintLn "@X09├───────────────────────────────────────────────────────────────────┤"
  35.     PrintLn "@X09│                                                                   │"
  36.     PrintLn "@X09│ @X0BYou are about to update your Account Information Please take the @X09 │"
  37.     PrintLn "@X09│ @X0Btime to insure that everything is correct.                       @X09 │"
  38.     PrintLn "@X09│                                                                   │"
  39.     PrintLn "@X09└───────────────────────────────────────────────────────────────────┘"
  40.     PrintLn 
  41.     PrintLn "@X0E" + "1" + " @X0F- @X0BStreet (1 of 2): @X0F", U_Addr(0)
  42.     PrintLn "@X0E" + "2" + " @X0F- @X0BStreet (2 of 2): @X0F", U_Addr(1)
  43.     PrintLn "@X0E" + "3" + " @X0F- @X0BCity           : @X0F", U_Addr(2)
  44.     PrintLn "@X0E" + "4" + " @X0F- @X0BState          : @X0F", U_Addr(3)
  45.     PrintLn "@X0E" + "5" + " @X0F- @X0BZip Code       : @X0F", U_Addr(4)
  46.     PrintLn "@X0E" + "6" + " @X0F- @X0BCountry        : @X0F", U_Addr(5)
  47.     PrintLn 
  48.     InputStr "EDIT 1 - 6 or S to Save Then quit?", STRING002, 14, 1, "1234567890S", 10
  49.     PrintLn 
  50.     If (STRING002 == "") Goto LABEL001
  51.     If (STRING002 == "1") Goto LABEL002
  52.     If (STRING002 == "2") Goto LABEL003
  53.     If (STRING002 == "3") Goto LABEL004
  54.     If (STRING002 == "4") Goto LABEL005
  55.     If (STRING002 == "5") Goto LABEL006
  56.     If (STRING002 == "6") Goto LABEL007
  57.     If (STRING002 == "S") Goto LABEL008
  58.     :LABEL002
  59.     InputStr "@X0AStreet (1 of 2):", U_Addr(0), 14, 45, STRING003, 10
  60.     PrintLn 
  61.     Goto LABEL001
  62.     :LABEL003
  63.     InputStr "@X0AStreet (2 of 2):", U_Addr(1), 14, 30, STRING003, 10
  64.     PrintLn 
  65.     Goto LABEL001
  66.     :LABEL004
  67.     InputStr "@X0ACity:", U_Addr(2), 14, 30, STRING003, 10
  68.     PrintLn 
  69.     Goto LABEL001
  70.     :LABEL005
  71.     InputStr "@X0AState:", U_Addr(3), 14, 2, STRING003, 10
  72.     PrintLn 
  73.     Goto LABEL001
  74.     :LABEL006
  75.     InputStr "@X0AZip Code:", U_Addr(4), 14, 12, "1234567890-", 10
  76.     PrintLn 
  77.     Goto LABEL001
  78.     :LABEL007
  79.     InputStr "@X0ACountry:", U_Addr(5), 14, 10, STRING003, 10
  80.     PrintLn 
  81.     Goto LABEL001
  82.     :LABEL008
  83.     If ((U_Addr(0) == "") || (Left(U_Addr(0), 1) == " ")) Goto LABEL009
  84.     Goto LABEL010
  85.     :LABEL009
  86.     PrintLn " You must answer the Above Info or you will be placed in this section"
  87.     PrintLn " Each time you log on untill your address information is logged"
  88.     InputYN " Do you still want to Exit (Y/N)", STRING004, 15
  89.     If (STRING004 == "Y") Goto LABEL010
  90.     If (STRING004 == "N") Goto LABEL001
  91.     If (STRING004 == "") Goto LABEL001
  92.     PrintLn " Thanks for taking the time to update your Address Information"
  93.     PrintLn " It will enable us to keep you in touch with future changes and"
  94.     PrintLn " changing Membership features."
  95.     PrintLn " In the Future if you need you update your Address Information"
  96.     PrintLn " Please use the W command on the Main Menu."
  97.     More
  98.     :LABEL010
  99.     Cls
  100.     PutUser
  101.     End
  102.  
  103. ;------------------------------------------------------------------------------
  104. ;
  105. ; Usage report (before postprocessing)
  106. ;
  107. ; ■ Statements used :
  108. ;
  109. ;    1       End
  110. ;    2       Cls
  111. ;    1       More
  112. ;    21      Goto 
  113. ;    1       Let 
  114. ;    31      PrintLn 
  115. ;    13      If 
  116. ;    1       GetUser
  117. ;    1       PutUser
  118. ;    7       InputStr 
  119. ;    1       InputYN 
  120. ;
  121. ;
  122. ; ■ Functions used :
  123. ;
  124. ;    12      +
  125. ;    15      ==
  126. ;    2       ||
  127. ;    2       Left()
  128. ;
  129. ;------------------------------------------------------------------------------
  130. ;
  131. ; Analysis flags : W
  132. ;
  133. ; W - Write user ■ 5
  134. ;     Program writes a user record. Although this may be normal for a
  135. ;     User Editor, it may also be a way to modify an account level.
  136. ;     ■ Search for : PUTUSER
  137. ;
  138. ;------------------------------------------------------------------------------
  139. ;
  140. ; Postprocessing report
  141. ;
  142. ;    0       For/Next
  143. ;    0       While/EndWhile
  144. ;    0       If/Then or If/Then/Else
  145. ;    0       Select Case
  146. ;
  147. ;------------------------------------------------------------------------------
  148. ;                 AEGiS Corp - Break the routines, code against the machines!
  149. ;------------------------------------------------------------------------------
  150.